home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 August / 1994-08b.d64 / rem replace (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  239 b   |  6 lines
  1. 1 :rem replace all rems with ':'           note: rem must be first on line
  2. 2 p=peek(43)+256*peek(44)
  3. 3 print".";:l=peek(p+2)+256*peek(p+3):n=peek(p)+256*peek(p+1):if n=0 then end
  4. 4 ifpeek(p+4)<>143thenp=n:goto3
  5. 5 print"[147]"l":":print"p="p":g[207] 3";:poke631,13:poke632,13:poke198,2:end
  6.